Application.ExecuteCommand("Quick Filter Shapes")
dim ws : set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\ApplicationMode", 2, "REG_EXPAND_SZ"
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\Strentch", 1, "REG_EXPAND_SZ"
set ws = nothing
Application.ExecuteCommand("Properties")
DraftingPropertiesDlg.AssignNetByClick = true